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ALL RIGHTS RESERVED. 
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ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY 
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; FACILITY: TABLE DRIVEN NETWORK (BINARY) MESSAGE PARSER 


; ABSTRACT: 


NPARSE is a bipery poreine facility similar to the table-driven 

ASCII parser, TPARSE. State tables provide the information necessary 
to validate and process binary data messages such as those of the 
DECnet-VAX NICE protocol. 


ENVIRONMENT: VAX/VMX Operating System 

; AUTHOR: Scott Davidson » CREATION DATE: 25-Sep-1979 
; Adapted from NPARS facility for DECnet-11M. 
; MODIFIED BY: 


-— RSION 

403-001 MKPO001 Kathy Perko 19-Jan-1982 
Add psects which are compatible with BLISS ones so that 
NML doesn't use so many image sections. 


v03-001 MKP0001 Kathy Perko 25-0c t-1981 
Fix copyright and add documentation about NPARSE tables 
which this module parses. 
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; NPARSE = Table Driven Parser for the NICE Protocol 
[NPARSE is a VMS adaptation of the RSX NPARS facilit NPARSE is a striped 


sdown version of the standard table driven perser TPARSE, (see Chapter 
;of the VAX-11 Common Run-Time Procedure Library Reference Manual manual). The 


ws 


sparse tables are set up in a similar manner using the following macros: 
1. Initialising the state table 


e 


$ The IMSG$ macro is used to initialise the state table which describes 


i 
é 
3 
ao 
ithe format of the message to be porter The state table is placed in the psect 
8 3 "NPASSTATE'. The IMSG$ macro takes a otnete argument which is the starting 
06 4 ; label of the state table. The macro format is: 
00 i : IMSGS — statetable 
ae 
44 o 12. Defining a message field 
000 if ; The FIELDS macro declares the beginning of field within the message. 
4464 78 sPyptecttcel ly this macro delimits one message field from another. The 
0000 79 :FIELD$ macro is coded as follows: 
0000 
o008 Be ; FIELDS (label) 
44 Bs iwhere label is an alphanumeric symbol that is equated to the address of the 
‘Be | ee 
0000 58 33. Defining a field specification 
444 PS : The general format for defining a field specification is as follows: 
8900 4 : $Macro CargumentI[, label q°.act tonJe mesh mohedr JE .peren] 
000 93; »NPAS_EXIT 
9000 3 ; »NPAS FAIL 
$4 38 swhere Label, action, mask, mskadr and param have the same noenings as 
B60 +4 sfor TPARSE. The following macros are used to define field specifications: 
09 133 :Macro Argument 
1 ;SIMAGE size defines an image field with a maximum Length of ‘size’ 
' § [SWORD number matches a word (2 bytes) from the message. 
6 5 ;$BYTE value matches a single byte from the message. 
1 : :$LOOK (value) Examine a byte but do not advance the pointers. 
! 8 : Optionally, examine a byte with the specified value. 
110 SEOM matches the end of the message. 
0 18 > SNULL this transition is always syccessful (equivalent to 
Bp BF : the TPARSE TPAS_LAMDA transition). 
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-SEP=1 MOM. SRCJNPARSE.MAR; 1 v0é 
115 ; SSBEXP state recursively calls NPARSE to parse a subexpression 
138 : 3 from the message. 
V8  SERROR code forces a failure from NPARSE at the top Level and loads 
1 3 the error code into RO. ALl error codes s 
! 9; ; be even numbers suitable for testing with: Bebe or BLBS. 
0 1 gi ISEXTZV fld matches a value of a specified field of bits within 
0 125 ; a byte and opt ionalt advance the pointers. The 
, ! : 3 *fld' argument has the following form: 
9 é : <value,position,sizel,NPA$_ADVANCEJ>. 
Bp ! 3 : where: 
444 130 ; value = field value to match 
000 lal 3 position = bit position within the byte 
+44 } § 3 size = field width (0<size<9) 
0000 (134: The field value (not the entire byte) is stored in 
44 ! ? ; NPASB_BYTE. 
4 } :SMASK bitmask matches a byte with any of the specified bits set. 
9000 133 :SMATCH number matches a sequence of bytes, ‘number’ in Length. 
De 
0900 148 ; Calling Conventions 
44 102 i INPARSE is invoked in the following manner: 
9009 162 3 : CALLS #2,NMASNPARSE 
448 133? twhen NPARSE is invoked, the following arguments must be set up: 
0000 151 ; P1 = pointer to NPARSE argument block 
44 136 : 3 P2 - label of the starting state le the NPARSE table 
0900 130: ‘The NPARSE argument block has the following format: 
0000 182 : prensivehes iccicceetiinnilta ieirneemioes ‘ 
09 138 3NPASL_COUNT ! NPASK _COUNTO ! 
1 3 peccneneses Ce foeenonen- + 
199 :NPASL _MSGCNT : bytes remaining to be parsed ; 
6 16¢ ;NPASL_MSGPTR ' pointer to unparsed message : 
164 :NPASL_OPTIONS ! sreservedt 
165 ; teecccccee teecccecece teececoree tooncence= + 
196 ;NPASL_FLDCNT ; count of matched field : 
1 g TNPASL_FLDPTR =! pointer to matched tield ' 
169 :N YTE eine Sie eri ee ooo + 
1 y: SNPASW WORD ! uns igned value. ' 
171 ;NPASL“LONG $--------- teeenenena fen nn nn nnntenn------ 5 
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v04- SEP-1 MOM.SRCJNPARSE.MAR; 1 (2) 
178 ;NPASL_NUMBER ! signed value ! 
17 8 $aownemnece pear eceaones $eceesenzrcoe $oeowonreame + 
174 ;NPASL_PARAM ! action routine parameter ! 
175 ; poanmaaeaoe $oeeeeeocoan foacmaannac temo ocasreoe + 
199 
178 ;0n return from NPARSE, RO contains the status code. 
180 ;Action routines are called with the argument pointer (AP) petat ing to 
181 ;the NPARSE argynen block. Transitions may be rejected by returning RO 
! ¢ swith the low bit clear. 
184 ; 
1 5 ;Example of a state table to parse a message consisting of: 
00 1 ; § 1. Image-8 field 
00 188 ; 2. Parameter field (parameters 100, 101 and 102 are allowed) 
4 ! H 5 The parameters may be repeated any number of times. 
4 191 ; IMSGS MSGTAB 
00 135 : 
000 193; FIELDS 
000 194; SIMAGE 8 
000 195; 
0000 196 ; FIELDS PARM 
0000 197 ; S$SBEXP PARAM,PARM 
4 198 ; $SEOM »NPAS_EXIT 
000 199 ; SERROR NML$_STS_FOR 
0000 00 ; 
4 01 ; FIELDS PARAM 
000 8 3 SPARAM 100,NPAS_EXIT,,1,PARNUM 
0000 03 ; SPARAM 101,NPAS_EXIT,,2,PARNUM 
i Me : SPARAM 102,NPAS_EXIT,,4,PARNUM 
0000 206; FIELDS 
0000 207 ; 
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: INCLUDE FILES: 


SNPADEF ; Define NPARSE argument block offsets 
NPADF ; Define NPARSE function and matching codes 
: MACROS: 


: EQUATED SYMBOLS: 

eSBTTL eee*DEBUGrere 
SSDEBUGSS = 1 

.PSECT SOWNS,NOEXE,RD,WRT 
> OWN STORAGE: 


NPASGL_LOGMASK: : 
-LONG 0 ; Logging mask (1=yes) 
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00 
if 
33 
00 
O7FC 900 
5A 04 AC DO 093 
26 04 AA OD 00 
5 08 AA D QOA 
55 08 AC 00 if 
04 AA OD 1 
QOOOO09A"EF OF ; 
000002D5"EF 02 FB 1 
QOOOOOSE*EF 00 FB 
01 68 9 
04 AA OD 
gooponce’ee OF E 
00000205 ‘EF : 6 4 
01 BA ° . 
04 Dd 
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~SBTTL NMASNPARSE = MAIN ROUTINE BODY 
«PSECT SCODES,EXE,RD,NOWRT 


MOM. SRC JNPARSE .MAR; 1 


ve 
FUNCTIONAL DESCRIPTION: 


FORMAL PARAMETERS: 


P1 = Pointer to NPARSE argument block 
P2 = Initial state pointer 


IMPLICIT INPUTS: 


NPARSE argument block must contain message length (NPASL_MSGCNT) 
and message pointer (NPASL_MSGPTR). 


IMPLICIT OUTPUTS: 


NPARSE argument block contains Length of unparsed message (NPASL_MSGCNT) 
and pointer to unparsed part of message (NPASL_MSGPTR). 


ROUTINE VALUE: 
COMPLETION CODES: 


RO - Success or error status code 
SIDE EFFECTS: 
NONE 


ENTRY FORINT RARE. "FIRS -AS RS AS BO AT RO -RY RIG 

MOVL 4(AP),R1 ; Get argument block pointer 
MOVL NPASL_MSGCNT(R10),R ; Get length argument 

MOVL NPASL_MSGPTR(R10),R ; Get buffer pointer argument 


OVL ° ; Get initial state argument 
IF DEFINED shir ate 
USHL NPASL_MSGCNT(R10) ; Store initial message count 
PUSHAL yt INIT ; Store pointer to FAO control string 
—_ CALLS #2,NPASSDEBUG_OUT ; Call debug output routine 
LLS #0,NPASSSUB_EXPR ; Begin message processing 
IF DEFINED SSOEBUGSS 
USHR ws ; Save register 
PUSHL NPASL_MSGCNT(R10) ; Store ay pd hy message length 
PUSHAL ; Store pointer to FAO control string 
CALLS #2,RNPASSDEBUG_OUT ; Call debug output routine 
— POPR #*A<RO> ; Restore register 
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XPR = SUBEXPRESSION ENTRY POIN .* “SEP=1 MOM. SRC INPARSE .MAR; 1 


-SBTTL NPASSSUB_EXPR = SUBEXPRESSION ENTRY POINT 
; Subexpression entry point 
0040 7 5 ENTRY NPASSSUB_EXPR,“*M<R6> 3 
ri 38 : Enter new state specified in R5 
FFFFFFFF 8F 33 dD 4 38 STAT: CMPL R5,#NPAS_FAIL 3 Fail the parse ? 
A 4 4 ? BEQL SYNERR 3; If EQL. yes 
19 AA 04 49 CLRL NPASL_FLDCNT(R10) 3; Clear any old field 
18 AA D4 4C § CLRL NPASL =LONG (R10) 5 wes 
1C AA D4 GF CLRL NP ASCH R(R10) 5 _6¢s 
14 AA HY 0 5 4 MOVL rH S NPRSL PEP TRCRIOD i Initialize field pointer 
56 68 C 5 5 MOVZWL 3; Get typ 
5 $ CASE Ree : Dispatch 
23 0 MATCH. sRASE .@ 3; 00 = image field 
if 38 MATCH_WORD,= ; 01 = word (unsigned) 
; 9 0 MATCH“RASK..- 3 ¢ = match masked byte value 
59 10 MATCH_BYTE,=- 3 - byte (unsigne 
059 11 MATCH_EOM,= 3 Be = match end of message 
059 \§ MATCH_ALL,=- ; 05 = always match 
059 1 MATCH_SBEXP,= 3 8 = match a subexpression 
059 14 MATCH_ERROR,=- 3 - exit from parse with error 
059 15 MATCH pTRINe ~ ; 08 - match byte string 
059 1§ EXAMINE BYTE.- ; 09 = examine a byte 
iM V- 3 = matc eatrarte yte value 
TH : mATC WERTZ 10 h db l 
Ore i SYNERR: 
0 BICL #1,R0 ; Indicate parse failure 
1 al? DEFINED $$OEBUGSS 
§ PUSHR #*M<RO> ; Save register 
PUSHL ; Store exit status value 
4 PUSHAL ou AIL ; Store pointer to FAO control string 
5 CALLS #2,NPASSDEBUG_OUT ; Call debug output routine 
§ POPR #*A<RO> ; Restore register 
~ENDC 
} RB EXIT 3 
SUCCESS: 
0 .IF DEFINED $SDEBUGSS 
1 PUSHAL OUT _SUCC ; Store output string address 
§ PUSHL aut SUCC_LEN : _ and lengt 
I mos CALLS #2,NPASSDEBUG_OUT2 ; Call debug output routine 
f exit BISL #1,R0 3; Indicate successful parse 
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yoe e850 MATCH_IMAGE = MATCH ON Fance MODE FIELD g- ott 85:48:35 MOM. SRCINPARSE .MAR; 1 (6) 
' r ; A -SBTTL MATCH_IMAGE = MATCH ON IMAGE MODE FIELD 
r) + 
pong 34 ; **=-MATCH_IMAGE*MATCH ON IMAGE MODE FIELD 
) . 
DOA 43; AN IMAGE MODE FIELD CONSISTS OF A SINGLE BYTE GIVING THE LENGTH OF 
. te § THE FIELD FOLLOWED BY THAT NUMBER OF BYTES. 
A 46 ; INPUTS: 
23 : : R2 - # OF BYTES REMAINING TO BE SCANNED 
+3 3 R5 = POINTER TO UNSCANNED PART OF MESSAGE 
49 ; RS = POINTER TO ? 
TCH_IMAGE: 
52 if fare -! tec Re 3 Any bytes left in message ? 
1 LEQ 1 $ 3 EQ, count is not present 
Ht é3 OA 4 MOVZBL (R3) Ro ; Get length of image field 
02 A 36 pt 5 CHPL RG 2iR ) ; 1s it thin specified range ? 
6 OD 3§ INCL R : Take into account the count byte 
52 se bf 28 5 Re na 3 Foevsh sherecters in message ? 
3 » no 
10 A 56 00 $ - + OS Ig LOCH ERIS? ; Set size of matched field 
53 oD 62° USHL Hy ; Store pointer to image field 
OOOO'EF OF $$ PUSHAL our IMAGE 3; Store pointer to FAO control string 
00000205 'EF 6 FB rt: _— CALLS #2,RNPASSDEBUG_OUT ; Call debug output routine 
1 ‘ BRW UPDTRN ; Update pointers and do transition 
$188 3} 67 10$: BRW NXTRAN ; porate the transition 
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~SBTTL MATCH_WORD = MATCH ON PARAMETER VALUE IN MESSAGE 
#*-MATCH_WORD-MATCH ON PARAMETER VALUE IN MESSAGE 
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NPASW_WORD(R10) 
,NPAS@_WORD(R10) 


8 NPASL FLDCNT(R10) 
SSOEBUGSS 
NPA$W_WORD(R10) 
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SCANNED 
OF MESSAGE 
Two bytes left in message ? 


» no 
Get word value for action routines 
pees it match ? 


» no 
Set length of matched field 


3; Store word value 
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; Store pointer to FAO control string 
; Call debug output routine 


Update pointers and do transition 
Reject the transition 
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yOen080 MATCH_MASK = MATCH ON MASKED BYTE VALUE g-§ eat 1 85:38:35 YROM. SRCINPARSE MART ° (8) vO. 
: 5 r -SBTTL MATCH_MASK = MATCH ON MASKED BYTE VALUE 
F 5 | ®*=MATCH_MASK-MATCH ON BYTE VALUE IN MESSAGE 
: 38 ; MATCH ON THE NEXT AVAILABLE BYTE IN THE MESSAGE. 
Fo ? : 
FQ 3 MATCH_MASK: 
if F 4 TSTL Re ; Any bytes left in message ? 
1 FB 404 LEQ ons : If LEQ, no 
18 AA 9A FD 405 10$ MOVZBL (R3),NPA$B_BYTE(R10) ; Get next byte from message 
18 AA OZ A 3 101 4 $ ITB g (R55 .NPASB_BYTE (R10) > Any_mask bits set ? 
1 1 1 | 4 BEQLU : If EQLU, no 
10 AA O01 DO 01 408 OVL gy tes FLDCNT(R10) ; Set Length of matched field 
10C 409 LIF DEF INED SsbeBUG $ 
18 AA DD O10C 410 PUSHL NPASB_BYTE(R10) ; Store byte value 
005 eS DF Q10F 411 PUSHAL yt MATCH ; Store pointer to FAO control string 
00000205 EF 2 FB Fs tl mee CALLS #2,NPASSDEBUG_OUT ; Call debug output routine 
O14F $1 1¢ «(414 BRW UPDTRN 3; Update pointers and do transition 
OOFD 1 O11F 415 208: BRW NXTRAN ; Reject the transition 
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E_BYTE = LOOK AT A BYTE WITHOUT no | -SEP-1984 70 YOM. SRC INPARSE .MAR; 1 (9) 
} rh -SBTTL EXAMINE_BYTE = LOOK AT A BYTE WITHOUT ADVANCING POINTERS 
1 419 34+ 
! 2 3 *e-EXAMINE_BYTE=LOOK AT A BYTE WITHOUT ADVANCING MESSAGE POINTERS 
1 bee : 
1 4 i EXAMINE BYTE: 
$ if: 1 424 “TSTL $ any tag # left in message ? 
1 1 425 BLEQ é ; 3 LE 
18 AA 3 GA 0126 & § MOVZBL (R35) greee FITS (Rt) 3 Ue next byt 2 
1 B 12A 4 BITW #NPASM EXT, (RS) 3; Extension present ? 
1 120 4 8 BEQLU 3; If EQLU, no 
18 AA 02 %} : 4 2 8 puce (R5) ,NPASB_BYTE(R10) 3 Be tpey,. — ? 
10 AA 01 8 6 4 1 s MOVL  #1,NPASL_FLDCNT(R10)  ; Set Length of matched field 

13a § sf DEF INED SSDEBUGSS 

1 AA OD QISA 434 PUSH ate NPA 1 ee ete 3; Store byte value 

goopens BH DF 01 435 PUS OUT at ; Store pointer to FAO control string 
00000205 ‘EF 2 FB 133 ? § _— atts abaespesuc OUT ; Call debug output routine 
0131 31 146A 438° BRW DOTRAN : Do the transition 
OOCF 1 014D 439 208: &RW NXTRAN : Reject the transition 


ee 
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Woe n850 MATCH_EXTZV = LOOK AT EXTRACTED FIELD VA met 1 95:48:35 EROM. SRCINPARSE MAR ST . H) 
: ~SBTTL MATCH_EXTZV = LOOK AT EXTRACTED FIELD VALUE 
; *e-EXAMINE_BYTE=LOOK AT BYTE WITH SPECIFIED FIELD 
TCH_EXTZV: ’ 
TSTL 3; Any pxtes left in message ? 
LEQ $ ; If LEQ, no 
MOVZBL R5),NPASB_BYTE(R10) ; Get field value 
R5),R 3: Get bit position 
4 »,R 3; Get field size (width) 


Get “‘" byte in message 


; Matic 

3; If NEQU, no 
rl tee FLDCNT(R10) 3; Set field count 

olf DEF INED sheBuG $ 


),R8 
gh7-RB,NPASB_BYTE(RIO) 


3; Store field information 
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USHL 
F PUSHAL yt exrey ; Store pointer to FAO control string 
00000205 ‘EF 2 FB nec ALL #2, RPASSDEBUG_OUT 3; Call debug output routine 
05 AS 4 3 BITB #NPAS_ADVANCE ,5(R5) ; Advance pointers ? 
; 1 BEQL 10$ 3; If EQL, no 
OOE 1 BR UPDTRN ; Update pointers and do transition 
OOF : BRW DOTRAN ; Perform the transition 


10$: 
20$: BRW NXTRAN ; Reject the transition 


L 
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yon050 MATCH BYTE = MATCH ON SPECIFIED BYTE VAL ~$Fb} 382 85:48:39 FROM. SRCINPARSE MARS? ° (11) 

1 ; $ 7 ; -SBTTL MATCH_BYTE = MATCH ON SPECIFIED BYTE VALUE 
} : 2 ; *#e-MATCH_BYTE“MATCH ON SPECIFIED BYTE VALUE 
} : f : MATCH ON THE NEXT BYTE IN THE MESSAGE IF IT HAS A SPECIFIED VALUE. 
18F 473 ; INPUTS: 
18F 474; Re - # OF BYTES REMAINING TO BE SCANNED 
! : $f? é RS = POINTER TO UNSCANNED PART OF MESSAGE 
18F 279 MATCH_BYTE: 

3 if 18F $78 TSTL Re 3 Any bytes left in message ? 

1 1 47 BLEQ 1 $ ; If LEQ, no 
18 AA 6 9A 019 480 MOVZBL (R3),NPAS$B_BYTE(R10) 3; Get next byte from message 
18 AA 02 AS) 91«0197 481 CMPB (R5S,NPASG_BYTE(R10) : Does it match specified byte ? 
1 12 019¢ 4 § BNEQU $ 3 NEQU, no 
10 AA 01 DO 019 4 OVL #1 tes FLDCNT(R10) ; Set length of matched field 
1A2 484 LIF DEFINED S$OEBUGSS 
8 AA ODD OA 485 USHL NPASB_BYTE(R10) 3; Store parameter value 
Q0000022°EF DF O1A5 486 PUSHAL yt BYTE ; Store pointer to FAO control string 
000002DS5‘EF 02 FB B13 $ 4 see ALLS #2,NPAS$DEBUG_OUT ; Call debug output routine 
0089 31 018 489 © BRW UPDTRN ; Update pointers and do transition 
68 11 018 490 10$: BRB NXTRAN 3; Reject the transition 


a 7 
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v04- MATCH SBEXP = MATCH ON SUBEXPRESSION $: Ep-1 984 83:08:37 UROM. SRC INPARSE .MAR; 1 ™ (12) 


~SBTTL MATCH SBEXP = MATCH ON SUBEXPRESSION 
#*-MATCH_SBEXP-MATCH ON SUBEXPRESSION 
CALL THE PARSER RECURSIVELY TO MATCH ON A SPECIFIED 


> 


18 § 
18 : 
18 49% ; 
18 495 ; 
1B £38 ; 
is $3 3 SUBEXPRESSION. 
1B7 4 § 3; INPUTS: 
187 o 3 R2 - # OF BYTES REMAINING TO BE SCANNED 
187 13 R5 = POINTER TO ot PART OF MESSAGE 
18? § ; RS = POINTER TO CURRENT STATE 
187 4 MATCH_SBEXP: 
DD 0187 5 PUSHL Ri ; Save registers 
DD 0189 $ PUSHL R 3 ees 

55 O2A DO 0188 OVL (R5) ,R5 ; Get starting state for subexpression 

1BF 38 IF DEFINED Sur tate 
Bi DF O1BF PUSHA 3 woe Bee to output string 
90000005" F odd 01C5 10 PUSHL wou aeeey 3 ngth 
00000311 "EF FB 1c 1} oe CALLS NPAS DEBUG” OuT2 3 call ghee output routine 
FE67 CF OO FB bp 18 CALLS AP gnesssus _EXPR ; Try to parse subexpression 
20 BA 01D 514 POPR M<R5> ; Restore state pointer 
14 AA 6€ 00 01D9 515 MOVL (se) NPSL FLDPTR(R10) Set pointer to matched subexpression 
10 AA 53 3 C3 O1DD 516 SUBL3 R3, gNPASL. FLDCNT(RIO) g Length of matched subexpression 
3a 5 5 Bice 517 BLBC ae xR LBC, reject the transition 
0096 1 O1E 518 BRW nO NK : Perform the transition 


N 7 
NPAR NETWORK (BINARY) MESSAGE PARSER 1 mites 06: Ne: 3e ages Macro V04-00 Page 15 
v04- MATCH_STRING = MATCH ON SEQUENCE OF BYTE 5-SEP-1984 00:27 (CMOM.SRCINPARSE.MAR; 1 (13) 
if 9 - -SBTTL MATCH STRING = MATCH ON SEQUENCE OF BYTES 
IE : : #*=MATCH_STRING-MATCH ON SEQUENCE OF BYTES 
if : : MATCH ON A SPECIFIED NUMBER OF BYTES IN THE MESSAGE. 
1E $ : INPUTS: 
1E 3 R2 - # OF BYTES REMAINING TO BE SCANNED 
1E 3 H R35 = POINTER TO UNSCANNED PART OF MESSAGE 
HH 6 : RS = POINTER TO FLAG BYTE OF CURRENT STATE 
1E MATCH_STRING: 
56 02 A5 00 OIE MOVL 2(R5) ,R6 : Get number of bytes to match 
52 6 D1 OEC CMPL R6,R2 : Enough characters left in message ? 
E 16 O1EF 4 BGTR  NXTRAN : If GTR, No - try next transition 
10 AA 6 00 OQIFI 5 eevt R6,NPASL_FLDCNT(R10) :; Set up length of field 
1F5 ¢ «IF DEFINED $$OEBUGSS 
56 DOD he PUSHL 6 ; Store byte string pointer 
a a DF OF 8 PUSHAL oyt MATCH 3; Store pointer to FAO control string 
000002DS5‘EF 02 FB ore ed ae CALLS #2,NPASS$DEBUG_OUT ; Call debug output routine 
68 11 0504 541° BRB UPDTRN ; Update pointers and perform transition 


B 8 
AEND OF MESSAGE ©» S=sEp=1984 05:00:37 EMOMVeRctabARse Mages Page 1) 
.SBTTL MATCH_EOM = CHECK FOR END OF MESSAGE 
**-MATCH_EOM=CHECK FOR END OF MESSAGE 
CHECK THAT WE HAVE PARSED UP TO THE END OF THE MESSAGE 


INPUTS: 
Re - # OF BY T$3 REMAINING TO BE paste 
RS = POl UNS 


om 
x 

=z 
“rn 
ouw 
am 


Pe Se Ge Ge Ge Ge Ge Ge 


OOD NAOUE WH" OQ OONOUSWw m-~< 


NTER CANNED PART OF MESSAGE 

MATCH_EOM: 
TSTL 3 Any _ remaining to be parsed ? 
BNEQ ; If NEQ, yes 

IF ree Ssoeeucss 
PUSHA her oom ; Store output string address 
PUSHES Hour E : _ and lengt 

nee CALLS NPASSOEBUG. OuT2 ; Call debug output routine 

. BRB DOTRAN ; 


c 8 
1 


NPAR NETWORK (BINARY) MESSAGE PARSER “SEP=1984 02:12: AX/VMS Macro V04-00 Page 17 
yOeneH0 NXTRAN = TRY NEXT ENTAS IN TRANSITION TA oes fi 85:38:35 EROM. SRCINPARSE MARI . (15) 
If ; ‘ ~SBTTL NXTRAN = TRY NEXT ENTRY IN TRANSITION TABLE 
iF 5 3 ®®-NXTRAN-TRY NEXT ENTRY IN TRANSITION TABLE 
1F § : THE CURRENT TRANSITION HAS FAILED, TRY TO MATCH ON THE NEXT 
iF ; ENTRY IN THE TRANSITION TABLE. 
1F > INPUTS: 
1F 71 ; R2 - # OF BYTES REMAINING UNSCANNED 
1F 72; R3 = POINTER TO UNSCANNED PORTION OF MESSAGE 
if o 3 RS = POINTER TO FLAG BYTE OF TRANSITION 
5 10 AA C 1F 75 NXTRAN: ADDL NPASL_FLDCNT (R10) .R2 ; Return any field matched 
5 10 AA § ; 6 SUBL NPASL_FLDCNT(R10),R ; _for re-parsing 
56 8 7 CVTWL «= (RS) +, R6 ; Get flags 
ee A 8 BGEQ 10$ : If GEQ, no 
FE44)— es 311 C 7 BRW SYNERR ; Last transition in state 
57 06 00 F 9 10$: MOVL #6,R7 ; Count of flag bits to test 
02 56 =E9 g 581 208: BLBC R6, 308 3; If LBC, entry not present 
85 D5 0 382 TSTL (RS) : Skip entry in table 
56 56 FF 8F Pg 0237 583 30S: ROTL #-1,R6,R6 ; Check next flag bit 
F357 «OF O23¢ 584 SOBGTR R7,20$ + Loop 
FOFE 31 O23F 585 RW MSTAT : and try next transition 


aaa eee eee aaa _— 
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yO4~000 MATCH_ERROR = LEAVE PARSER WITH ERROR 873Eb-| 984 3:06:37 UMOM.SRCINPARSE. MARS 1 . (16) 


r 7 x -SBTTL MATCH_ERROR = LEAVE PARSER WITH ERROR 
2 5 ; #*=MATCH_ERROR@LEAVE PARSER WITH ERROR 
ri 91 ; EXIT FROM THE PARSER AT THE TOP LEVEL WITH AN ERROR CODE. 
4 § : INPUTS: 
4 4; R2 - # OF BYTES REMAINING TO BE SCANNED 
4 95 ; R35 = POINTER TO UNSCANNED PART OF MESSAGE 
r 38 3 R5 = POINTER TO CURRENT STATE 
4 38 : OUTPUTS: 
r 6 : RO - ERROR CODE FROM STATE TABLE 
4 1 MATCH_ERROR: 
50 02 a5 00 4 g OVL giRo) RY ; Pick up error code 
4 IF DEFINED speaye $ 
9 8B rt 4 PUSHR #*M<RO> ; Save register 
0 OD 4 605 PUSHL ; Store error value 
00000077'EF OF 4A 6 $ PUSHAL ay ERROR ; Store pointer to FAO control string 
000002DS°EF 02 FB 29 6 CALLS #2,NPASSDEBUG_OUT ; Call debug output routine 
01 BA 5 608 POPR #*M<RO> ; Restore register 
59 609 .ENDC 
23 +11 +0259 610 BRB DOTRAN ; Perform the transition 
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v04- MATCH_ALL = PERFORM NULL STATE TRANSITIO 5=-SEP-1984 00:27 (CMOM.SRCINPARSE.MAR; 1 (17) 
B 13 ~SBTTL MATCH_ALL = PERFORM NULL STATE TRANSITION 
8 1 ~SBTTL DOTRAN = PERFORM THE STATE TRANSITION 
4 13 ‘ -SBTTL UPDTRN = UPDATE COUNT AND POINTERS 
B 616 : **-UPDTRN-UPDATE COUNT AND POINTERS 
8 1 
8 eis ; UPDATE THE COUNT AND POINTER FOR THE CURRENT MATCHING TRANSITION 
: oh 3 BEFORE PERFORMING THE TRANSITION. 
? 1 ; **=DOTRAN-PERFORM THE STATE TRANSITION 
8 ° : A_SUCCESSFUL MATCH HAS OCCURRED ON A SUB-FIELD IN THE MESSAGE, 
; £58 ; PERFORM THE SPECIFIED STATE TRANSITION. 
5B 6 § 3; INPUTS: 
5B 627 ; R2 - # OF CHARACTERS REMAINING TO BE SCANNED 
5B 6 8 $ R35 = POINTER TO MESSAGE REMAINING TO BE SCANNED 
Hs ? 6 : R5 = POINTER TO FLAG WORD IN CURRENT TRANSITION 
58 631 MATCH_ALL: 
28 6 § IF DEFINED $SDEBUGSS ; 
4 saa DF B 6 PUSHAL OUT NULL ; Store string pointer 
0000004'8F ODD 61 634 USHL sg WuLL LEN 3 Store string length 
O0000S11"EF 02 FB of £34 — CALLS #2,NPASSDEBUG_OUT2 ; Call debug output routine 
52 10 AA C2 § 6 : UPDTRN: SUBL2 NPASL_FLDCNT(R10) ,R2 3; Reduce count of bytes remaining 
04 AA 52 D9 638 MOVL R2,NPASL_MSGCNT(RIO) =: ... 
53 10AA C 7 63 ADDL2 NPASL_FLBCNT(R10) ,R3 3; Update message pointer 
08 AA 23 DO 027A 640 MOVL &3,NPASL_MSGPTR(RIO) =: ... 
5 3 7 641 DOTRAN: PUSHL ; Save current state table address 
56 685 a6 CVTWLE «= (R5) +, R6 :; Get flags 
~~ Se 64 ITL #@NPASM_EXT,R6 3; Extension present ? 
Be i £ 644 BEQLU 10 3 » no 
D 645 TSTL (R5)¢ : Skip extension field in entry 
20 AA D4 A 646 108: CLRL NPASL_PARAM(R10) ; Zero action routine parameter 
56 602 o D 647 BITL #NPASA_PARAM,R6 ; Action routine parameter present ? 
4 1 9 928 BEQLU 70s 3 no 
20 AA Pie 9 64 MOVL (R5)+,NPASL_PARAM(R10) : Get action routine parameter 
4 OD 9 650 208: BITL #NPASM_ACTION,R6 ; Action routine address present ? 
1A 99 651 BEQLU $ 3 i LU, no 
9061 4 Be 98 $36 PUSHR #*M<RO,R6> ; Save action flags and status 
2 ee - oF 6 MOVL #1,R ; Set default return status to success 
95 6A FA O2A2 654 CALLG (R10), a@(R5)+ : Call action routine 
09 50 =«éEB A $23 BLBS :; If LBS, then success 
0041 BF BA OcAB 6 : POPR #*A<RO,R6> ; Restore registers 
0 eh AC 6 POPR #*A<RS> 5 eee 
FF6E 31 AE 6 BRW NXTRAN : Reject the transition 
0041 8F BA B 65 ips: POPR #*A<RO,R6> ; Restore flags and status 
3 D Be 660 40S: TSTL P)+ 3; Clean up stack 
56 » B 661 BITL #NPASM_MASK ,R6 ; Mask present ? 
9 BA 066 BEQLU : If cabu, no 
57 > § BC 66 OVL (R5)+,R7 ; Get bit mask to be set 
28 ; D BF 968 VL (R5)+,R8 ; _and address 
g C C 65 BISL R7, (RB) 3; Set fhe mask bits 
6 D C 096 50$: BITL #NPASM_STATE RO : Explicit transition present ? 
1 C 66 BEQLU ; If eauy, no 
55 D CA 668 MOVL (R5)+,R5 ; Get pointer to next state 
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2 eee 
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20 20 68 73 61 4D eraceent yy i 


NS 6 RS SR Se Nr 
~~ 


20 72 6F 72 72 45 ee 
64 65 6C 69 61 46 settee Be ef 8 
6E 69 73 re 61 50 Ag’ 0100000" A 
SERHR GL Bee ies 

9 73 65 74 6 c° 
73 72 61 70 6€ CE*010E0000" 00C6 
SERT HSI PR REE wes 
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E 
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NETWORK (BINAR 
UPDTRN = UPD 


Y) MESSAGE PARSER 
ATE COUNT AND POINT 
IF DEFINED 
-SBTTL 
? » SAVE 
er »PSECT 
4 OUT _ IMAGE : 
80 »ASCID 


$B) OUT_WORD: iD 


683 OUT_BYTE: 
684 «ASCID 


eH OUT_LOOK: 
686 «ASCID 


687 OUT_EXTZV: 
688 .ASCID 


689 OUT_MATCH: 
690 .ASCID 


691 OUT_MASK: 
692 -ASCID 


693 OUT_ERROR: 
694 .ASCID 


695 OUT_FAIL: 
696 A 


697 OUT_INIT: 
698 ASCID 


SCID 
99 OUT_LEFT: 
00 -ASCID 
OUT_ECM: 


LEN 
ULC: 


1 

2 ASCII 
3 OUT_EOM 

4 OUTZNULC: 

5 SASCII 
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SSDEBUGSS 
NPARSE DEBUGGING DATA 


NPASDEBUGSPURE ,NOEXE ,NOWRT ,BYTE 
"Image !AC"’ 
“Word !xw" 
“Byte !xB" 
“Look !XB"" 
“Extzv !XL" 
“Match ! xB" 
“Mask !XB"" 
“Error !XL" 
“Failed !XL"’ 


“Parsing message (Length = !UL bytes)"’ 
"Unparsed message length = !UL bytes" 


“End of message'’ 
= .-OUT_EOM 


= .°OUT_NULL 


*"Sbexp'’ 

=  =OUT_SBEXP 
Success’ 

= .-OUT_SUCC 


roe i, 


vcovvrv°c~c7cg 
ee re ee Be ee pe pd _ 
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04060 NPARSE DEBUGGING DATA TSE S$EP=198« 08:06:27 Umdmesacinparse mans =| 89° (8, 


NPARSE CEBU 


NARY 
GGIN 
18 
-PSECT NPASDEBUGSIMP,NOEXE,WRT,BYTE 
a FAO Output Buffer ay 
Faovesc: Fil 
90000080, -LONG 80 Fill 
-ADDRESS FACBUF Fil 
FAOBUF : Fil 
— -BLKB 80 F Il 
OUT_DSC: FI 
0000 FAOCEN: .BLKW 4 FLI 
§ . WORD FLI 
0000 [ADDRESS 0 4 
0000 of § RESTORE 4 
FSI 


=m mmm 


555 


IFl 
IF I 
IN. 
INI 


bt bt os Ot Be Oe 
zzZzzzzzz 
EF EZZEZ 


Sama zwmoooo°eCeSC=z 


FRC ee es ee ne as es ee be Pe ee a 


saad 
» Oo- 


C—O nsneeeneeen [ ee 


m 
3 
o 
7 

“=< 


WWW 2 SV  VOQOMIVIOVVVVVVCVUVT0" 


0000-8 wWD OW | “OVOWOon nH NS 
~~~ 
PDP PSSST Ee BS BS BE NAIA 


AO OONA UE WIN O OD NOAUE UW CO OONOU ES 
. 


SNe ee eeenTwTsy 


SOoooooooooeo 
WAN NWN 
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NPASSDEBUG-OUT noe PARSER SrSEp=19be 88:00:27 


SEP=1 


UG_OUT 
UG_OUT2 


AX/VMS Macro Vv04-00 
MOM.SRCINPARSE .MAR; 1 


point for argument/string output 


ENTRY NPASSDEBUG. OUT, “M<> 
STL NPASGL_LOGRASK 


SFAO_S CTRSTR=a4(AP),- 

OUTLEN=F AOLEN,= 

0 T UF st AODESC, ~ 
= 

MOVAL FAOBUF ,OUT_DSC+4 


0 
#1, G*LIBSPUT_OUTPUT 


point for string output 
zeurey NPASSDEBUG_OUT2, “i4<> 


S NPASGL_LOGMASK 
BEQL 108 
MOVL  4(AP),QUT_DSC 
MOVL 8(AP) OUT“DSC+4 
PUSHAL OUT_D 
CALLS #1,G*LIBSPUT_OUTPUT 
RET 
END 


Flag set if log 
Logging is disa 


Flag set if lo 


ing disabled 
Logging disabled . 


Print the string 


5:2 
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SPELLS LEE EN 


= 
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SERSGR TUS OSES RIES 
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Psect synopsis $73 138 85:48:39 YROM. SRCINPARSE. MAR; 1 Pas (98) 


Parner e awa mwa seen Ss 


! Psect synopsis ! 


gee en ewe n en ere nsa 


PSECT name Allocation PSECT No. Attributes 
» GB « 8 8 ( -> 00 ¢ 0.) NOPIC USR CON ABS LCL nose NOEXE NORD wownt NOVEC BYTE 
SABSS ( -) O71 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
SOWNS 4 ( ) ( 2.) NOPIC USR CON REL’ LCL NOS ft NOEXE RD URT NOVEC BYTE 
9 ¢ 863-3 ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
NPASDEBUGSPURE 10F ¢ 1.) 046 ¢ 4.) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
NPASDEBUGS1MP 060 ( 96.) 05 ¢ 5.) NOPIC  USR REL LCL NOSHR NOEXE R&D WRT NOVEC BYTE 
orem newest oe seca ae we $ 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 0.05 0:00:00.92 
zounene processing 137 93:98: -88 09: B05; 6 
s 1 174 3 0:00:10.60 
Syabol table sort 14 0: 9:00 3: 3:09. ? 
Symbol table output 8 0:00. 0: 8:00:06 
Psect synopsis output 0: 3: 8 0:00:00.09 
Cross-reference output 0: . BR 5398-00 
Assembler run totals 484 00:00:05.6 0:00:22.39 


The working sst t Limit was 1500 pages. 

15660 bytes (31 pages) of virtual memory were used i buffer the intermediate 

There were 10 pages of symbol table taco ee eeeiet 2 hold 86 non-local and 2 Tet symbols. 
73" source Lines were read in Pass 1, producing object records in Pass 2. 

13 pages of virtual memory were used to define 11 macros. 


pews emerenre moma eecr ecw emo m awe + 


! Macro Library statistics ! 


fewer nan mrmre ceo nanam eee eee 


Macro conesec! nane Macros defined 
: Suet Ja eu tee MLB; 1 0 
BRA : avs edt LIB ALBA 1 
BSDUA Eevet iB anit MLB: : g 
Teraie (all Libraries) 8 


128 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NPARSE/OBJ=OBJ$:NPARSE MSRC$:NPARSE/UPDATE=(ENHS$:NPARSE) +L1B$:MOMLIB/LIB+EXECML$/LIB+SHRLIBS:NMALIBRY/LIBS 
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